home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / q_zz115.arj / UNAME100.ARJ / UNAME.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-12-29  |  3KB  |  191 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING003 = U_Name()
  35.     STRING004 = STRING003
  36.     BOOLEAN001 = 0
  37.     BOOLEAN003 = 0
  38.     If (Exist(PPEPath() + "uname.cnf")) Goto LABEL001
  39.     Newline
  40.     Print "@BEEP@@X0F(UNAME.CNF) NOT FOUND!"
  41.     Newline
  42.     Goto LABEL011
  43.     :LABEL001
  44.     STRING006 = "-"
  45.     FOpen 1, PPEPath() + "uname.cnf", 0, 0
  46.     FGet 1, INTEGER001
  47.     While (STRING006 <> "") Do
  48.         FGet 1, STRING006
  49.         If (STRING006 == STRING003) BOOLEAN003 = 1
  50.     EndWhile
  51.     FClose 1
  52.     If (BOOLEAN003 == 1) Goto LABEL007
  53.     If (INTEGER001 > 40) INTEGER001 = 40
  54.     STRING007 = INTEGER001
  55.     If (Exist(PPEPath() + "ulby.dat")) Goto LABEL002
  56.     FAppend 1, PPEPath() + "ulby.dat", 2, 0
  57.     FPutLn 1, "SLE"
  58.     FPutLn 1, "@X09[@X0FS@X07L@X08e@X09]"
  59.     FClose 1
  60.     :LABEL002
  61.     FOpen 1, PPEPath() + "ulby.dat", 0, 0
  62.     :LABEL003
  63.     If (Ferr(1)) Goto LABEL004
  64.     FGet 1, STRING001
  65.     FGet 1, STRING002
  66.     If (STRING001 == STRING003) BOOLEAN001 = 1
  67.     If (STRING001 == STRING003) STRING004 = STRING002
  68.     Goto LABEL003
  69.     :LABEL004
  70.     FClose 1
  71.     :LABEL005
  72.     Cls
  73.     PrintLn "@X08[@X07UName v1.00@X08]"
  74.     Newline
  75.     PrintLn "  ──────────────────────────────────────────────┐"
  76.     PrintLn "@X0F                            │                   @X08│"
  77.     PrintLn "@X0F                            │ C)hange Your Name @X07│"
  78.     PrintLn "@X0F                            @X07│ @X0FQ)uit back to BBS │"
  79.     PrintLn "                            @X08│                   @X0F│"
  80.     PrintLn "@X01─ ── ───── @X09Current String @X01┐ @X08└─────────────────────────────────────────────"
  81.     PrintLn "@X0F                          @X01└────> @X07Uploaded by@X0F: " + STRING004
  82.     Newline
  83.     InputStr "@X07Your Choice@X0F: _", STRING005, 15, 1, "CQcq", 8
  84.     If (STRING005 == "Q") Goto LABEL008
  85.     If (STRING005 == "C") Goto LABEL006
  86.     Goto LABEL005
  87.     :LABEL006
  88.     PrintLn "@CLS@@X07 @X08[@X07Change Your Name now@X08]"
  89.     PrintLn "[@X07You only have " + STRING007 + " Chars@X08]"
  90.     Newline
  91.     Print "@X0F       @X08 (@X07"
  92.     For INTEGER002 = 1 To INTEGER001
  93.         Print Chr(196)
  94.     Next
  95.     PrintLn "@X08)"
  96.     PrintLn "@X07Current@X0F: " + STRING004
  97.     Print "@X07Changed@X0F: "
  98.     InputStr "_", STRING004, 15, 40, Mask_Ascii() + "íáéó■─═", 64
  99.     If (STRING004 <> "") BOOLEAN002 = 1
  100.     Goto LABEL005
  101.     :LABEL007
  102.     Newline
  103.     PrintLn "@X0FSorry, You don't have access to this program!"
  104.     Newline
  105.     Goto LABEL011
  106.     :LABEL008
  107.     If (BOOLEAN002 == 0) Goto LABEL011
  108.     If (BOOLEAN001 == 0) Then
  109.         FAppend 1, PPEPath() + "ulby.dat", 2, 0
  110.         FPutLn 1, STRING003
  111.         FPutLn 1, STRING004
  112.         FClose 1
  113.     Endif
  114.     If (BOOLEAN001 == 1) Then
  115.         FOpen 1, PPEPath() + "ulby.dat", 0, 0
  116.         FAppend 2, PPEPath() + "uname.@@@", 2, 0
  117.         :LABEL009
  118.         If (Ferr(1)) Goto LABEL010
  119.         FGet 1, STRING001
  120.         FGet 1, STRING002
  121.         If (STRING001 == STRING003) STRING002 = STRING004
  122.         If ((STRING001 <> "") && (STRING002 <> "")) FPutLn 2, STRING001
  123.         If ((STRING001 <> "") && (STRING002 <> "")) FPutLn 2, STRING002
  124.         Goto LABEL009
  125.         :LABEL010
  126.         FClose 1
  127.         FClose 2
  128.         Delete PPEPath() + "ulby.dat"
  129.         Rename PPEPath() + "uname.@@@", PPEPath() + "ulby.dat"
  130.     Endif
  131.     :LABEL011
  132.  
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Usage report (before postprocessing)
  136. ;
  137. ; ■ Statements used :
  138. ;
  139. ;    1       Cls
  140. ;    20      Goto 
  141. ;    14      Let 
  142. ;    4       Print 
  143. ;    13      PrintLn 
  144. ;    20      If 
  145. ;    3       FOpen 
  146. ;    3       FAppend 
  147. ;    6       FClose 
  148. ;    6       FGet 
  149. ;    6       FPutLn 
  150. ;    1       Delete 
  151. ;    2       InputStr 
  152. ;    7       Newline
  153. ;    1       Rename 
  154. ;
  155. ;
  156. ; ■ Functions used :
  157. ;
  158. ;    17      +
  159. ;    10      ==
  160. ;    6       <>
  161. ;    1       <
  162. ;    1       <=
  163. ;    1       >
  164. ;    2       >=
  165. ;    8       !
  166. ;    4       &&
  167. ;    1       ||
  168. ;    2       Ferr()
  169. ;    1       Chr()
  170. ;    1       U_Name()
  171. ;    1       Mask_Ascii()
  172. ;    11      PPEPath()
  173. ;    2       Exist()
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Analysis flags : No flag
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;
  181. ; Postprocessing report
  182. ;
  183. ;    1       For/Next
  184. ;    1       While/EndWhile
  185. ;    2       If/Then or If/Then/Else
  186. ;    0       Select Case
  187. ;
  188. ;------------------------------------------------------------------------------
  189. ;                 AEGiS Corp - Break the routines, code against the machines!
  190. ;------------------------------------------------------------------------------
  191.